home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / show / gs503_data.lha / Ghostscript / data / pdf2dsc.ps < prev    next >
Text File  |  1997-08-14  |  4KB  |  121 lines
  1. %    Copyright (C) 1994, 1995, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % pdf2dsc.ps
  19. % read pdf file and produce DSC "index" file.
  20. %
  21. % Input  file is named PDFname
  22. % Output file is named DSCname
  23. %
  24. % Run using:
  25. %  gs -dNODISPLAY -sPDFname=pdffilename -sDSCname=tempfilename pdf2dsc.ps
  26. % Then display the PDF file with
  27. %  gs tempfilename
  28. %
  29. % Modified by Johannes Plass <plass@dipmza.physik.uni-mainz.de> 1996-11-05:
  30. %    Adds BoundingBox and Orientation if available.
  31. % Modified by rjl/lpd 9/19/96
  32. %    Updates for compatibility with modified pdf_*.ps code for handling
  33. %      page ranges (i.e., partial files) better.
  34. % Modified by Geoff Keating <Geoff.Keating@anu.edu.au> 7/3/96:
  35. %    include Title and CreationDate DSC comments (these are displayed by
  36. %      Ghostview);
  37. %    reduce the size of typical output files by a factor of about 3.
  38. % Modified by L. Peter Deutsch 3/18/96:
  39. %    Removes unnecessary and error-prone code duplicated from pdf_main.ps
  40. % Modified by L. Peter Deutsch for GS 3.33
  41. % Originally by Russell Lang  1995-04-26
  42.  
  43. /DSCfile DSCname (w) file def
  44. /DSCstring 255 string def
  45.    GS_PDF_ProcSet begin
  46.    pdfdict begin
  47.    PDFname (r) file
  48.    pdfopen begin
  49. % setup for loop  (init increment limit)
  50.    /FirstPage where { pop FirstPage } { 1 } ifelse
  51.    1
  52.    /LastPage where { pop LastPage } { pdfpagecount } ifelse
  53. % write header and prolog
  54. DSCfile (%!PS-Adobe-3.0\n) writestring
  55. Trailer /Info knownoget
  56.  {
  57.    dup /Title knownoget
  58.     {
  59.       DSCfile (%%Title: ) writestring
  60.       DSCfile exch write==
  61.     }
  62.    if
  63.    /CreationDate knownoget
  64.     {
  65.       DSCfile (%%CreationDate: ) writestring
  66.       DSCfile exch write==
  67.     }
  68.    if
  69.  }
  70. if
  71. DSCfile (%%Pages: ) writestring
  72. DSCfile 1 index 3 index sub 1 add DSCstring cvs writestring
  73. DSCfile (\n%%EndComments\n) writestring
  74. DSCfile (%%BeginProlog\n) writestring
  75. DSCfile (/Page null def\n/Page# 0 def\n/PDFSave null def\n/DSCPageCount 0 def\n) writestring
  76. DSCfile (/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def\n) writestring
  77. DSCfile (GS_PDF_ProcSet begin\npdfdict begin\n) writestring
  78. DSCfile (%%EndProlog\n) writestring
  79. DSCfile (%%BeginSetup\n) writestring
  80. DSCfile PDFname write==only
  81. DSCfile ( \(r\) file pdfopen begin\n) writestring
  82. DSCfile (%%EndSetup\n) writestring
  83. % process each page
  84.     {
  85. DSCfile (%%Page: ) writestring
  86. DSCfile 1 index DSCstring cvs writestring
  87. DSCfile ( ) writestring
  88. DSCfile 1 index DSCstring cvs writestring
  89. DSCfile (\n) writestring
  90.  
  91. %BEGIN ##jp##
  92. dup pdfgetpage /CropBox knownoget { % file maxpage pageno cropbox
  93.   DSCfile (%%PageBoundingBox: ) writestring
  94.   {DSCfile exch write=only DSCfile ( ) writestring} forall
  95.   DSCfile (\n) writestring
  96. } if
  97. dup pdfgetpage /Rotate knownoget { % file maxpage pageno angle
  98.   DSCfile (%%PageOrientation: ) writestring
  99.   90 div cvi 4 mod dup 0 lt {4 add} if
  100.   [(Portrait) (Landscape) (UpsideDown) (Seascape)] exch get
  101.   DSCfile exch writestring
  102.   DSCfile (\n) writestring
  103. } if
  104. %END ##jp##
  105.  
  106. DSCfile exch DSCstring cvs writestring
  107. DSCfile ( DoPDFPage\n) writestring
  108.     } for
  109.    currentdict pdfclose
  110.    end
  111.    end
  112.    end
  113. % write trailer
  114. DSCfile (%%Trailer\n) writestring
  115. DSCfile (currentdict pdfclose\nend\nend\nend\n) writestring
  116. DSCfile (%%EOF\n) writestring
  117. % close output file and exit
  118. DSCfile closefile
  119. quit
  120. % end of pdf2dsc.ps
  121.